home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Misc System Settings.xpl < prev    next >
Text File  |  2001-09-12  |  3KB  |  82 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="System\Advanced System Settings"
  5. "NAME"="Windows 9x/ME Options"
  6. "VERSION"="1.17"
  7. "OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable "Beep" noise"
  10. "TEXT 2"="Log application errors to FAULTLOG.TXT"
  11. "TEXT 3"="Enable Dr.Watson detailed log"
  12. "DESCRIPTION 1"="If "Enable Beep Noise" is enabled, Windows is able to make a beeping noise when there is a program error or similar. If deactivated, it won't beep. NOTE: This is using the PC Speaker inside your CPU and not using your sound card and speakers!"
  13. "DESCRIPTION 2"="If "Log Application errors" is activated, errors (in particular "Illegal Operations") caused by applications are logged to the file FAULTLOG.TXT in your Windows directory (usually "C:\WINDOWS")."
  14. "DESCRIPTION 3"="If "Enable Dr. Watson detailed log" is activated, Dr.Watson will log much more information in case it detects a crashed application. This might be more useful for troubleshooting.  Note: You must completely exit Dr. Watson if it is already running, including its icon in the tray notification area of your taskbar, for the change to take effect if you modified this option."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Description tweaked by Neil R. Turner"
  19.  
  20.  
  21. sP="HKLM\Software\Microsoft\Windows\CurrentVersion\Fault\"
  22. sP2="HKCU\Control Panel\Sound\"
  23. sWD=""
  24. sV1="LogFile"
  25. sV2="Beep"
  26.  
  27. sP3="HKEY_LOCAL_MACHINE\Software\Microsoft\DrWatson\"
  28. sV3="AdvancedMode"
  29.  
  30. Sub Plugin_Initialize 
  31.     sWD=GetWinDir
  32.  
  33.     s=RegReadValue(sp2&sv2)
  34.     if UCase(s)="YES" then
  35.        Call SetUIElement(1,true)
  36.     end if
  37.  
  38.     s=RegReadValue(sp&sv1)
  39.     if s=sWD & "FAULTLOG.TXT" then
  40.        Call SetUIElement(2,true)
  41.     end if
  42.  
  43.     s=RegReadValue(sp3&sv3)
  44.     if s=1 then
  45.        Call SetUIElement(3,true)
  46.     end if
  47. End Sub
  48.  
  49. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  50.  b=GetUIElement(1)
  51.  if b=true then
  52.   Call RegWriteValue(sp2&sv2,"Yes",1)
  53.  else
  54.   Call RegWriteValue(sp2&sv2,"No",1)
  55.  end if
  56.  
  57.  
  58.  b=GetUIElement(2)
  59.  if b=true then
  60.   Call RegWriteValue(sp&sv1,swd&"FAULTLOG.TXT",1)
  61.  else
  62.   i=RegReadValue(sp&sv1)
  63.   if IsEmpty(i)=false then
  64.    Call RegDeleteValue(sp&sv1)
  65.   end if
  66.  end if
  67.  
  68.  b=GetUIElement(3)
  69.  if b=true then
  70.     Call RegWriteValue(sp3&sv3,"1",2)
  71.  else
  72.     Call RegWriteValue(sp3&sv3,"0",2)
  73.  end if
  74.  
  75.  
  76.  
  77.  Restart
  78. End Sub
  79.  
  80. Sub Plugin_Terminate 
  81. End Sub
  82.